home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / internet / misc / acuseeme2_02 / acuseeme install next >
Text File  |  1996-09-08  |  4KB  |  118 lines
  1. ; CUSeeMe Installer © 1995 Robert Reiswig (rcr@netcom.com)
  2. ;
  3. ; Version 1.0 June 4, 1995
  4. ;  - Original version. Thank you very much Robert.
  5. ;
  6. ; Version 1.1 June 4, 1995
  7. ;  - Installer now creates a destination directory called "ACUSeeMe" in
  8. ;    the directory that the user chooses
  9. ;  - Changed the variable name "CUDir" to "InstallDir"
  10. ;  - Changed ACUSeeMeVer to "1.50"
  11. ;  - Minor cosmetic changes
  12. ;
  13. ; Version 1.2 July 6, 1995
  14. ;  - Changed ACUSeeMeVer to "2.00"
  15. ;  - Changed the message from "The installer will create a drawer there."
  16. ;    to "The installer will create a drawer there or install into the
  17. ;    existing ACUSeeMe directory."
  18. ;  - Since ACUSeeMe now actually uses the reflectors.txt file, the user
  19. ;    is given the option to install it.
  20. ;
  21.  
  22. ;********************************************************************
  23. ; Current Version of ACUSeeMe
  24. ;********************************************************************
  25. (set ACUSeeMeVer "2.01") 
  26.  
  27.  
  28. ;********************************************************************
  29. ; Info on ACUSeeMe and Installer Man
  30. ;********************************************************************
  31. (message "\n\nACUSeeMe V" ACUSeeMeVer "\n\n"
  32.          "Network video-conferencing tool\n\n"
  33.          "by\n\nBerend Ozceri\n(bo24@andrew.cmu.edu)\n\n"
  34.          "Original CUSeeMe © 1994, 1995 Cornell University\n"
  35.          "Amiga CUSeeMe © 1994, 1995 Berend Ozceri"
  36. )
  37.  
  38.  
  39. ;********************************************************************
  40. ; Ask where to put it
  41. ;********************************************************************
  42. (set InstallDir
  43.   (askdir 
  44.     (prompt "Please select where you wish to install\nACUSeeMe V"ACUSeeMeVer"\n"
  45.             "(The installer will create a drawer there or install into the existing ACUSeeMe directory.)")
  46.     (help   "Please select where you wish to install ACUSeeMe. A directory "
  47.             "called ACUSeeMe (and an icon for it) will be created in the "
  48.             "directory selected.")
  49.     (default "Work:")
  50.   )
  51. )
  52. (set InstallDir (tackon InstallDir "ACUSeeMe"))
  53. (makedir InstallDir)
  54. (set @default-dest InstallDir)
  55.  
  56.  
  57. ;********************************************************************
  58. ; Double Check on the CPU, to make sure
  59. ;********************************************************************
  60. (set cpu (database "cpu"))
  61. (if (= cpu 68000) (set #cpu 0))
  62. (if (= cpu 68010) (set #cpu 1))
  63. (if (= cpu 68020) (set #cpu 2))
  64. (if (= cpu 68030) (set #cpu 3))
  65. (if (= cpu 68040) (set #cpu 4))
  66.  
  67. (if (> (exists ("libs:68060.library")) 0) (set #cpu 5))
  68.  
  69. (set #cpu
  70.   (askchoice 
  71.     (choices "68000" "68010" "68020" "68030" "68040" "68060")
  72.       (prompt "Central Processing Unit Check")
  73.       (help   "The ACUSeeMe binary comes in two versions; one for Amigas with "
  74.             "68000 or 68010 CPUs and one for Amigas with 68020, 68030, 68040 "
  75.             "or 68060 CPUs. Please choose the CPU type of your Amiga. The "
  76.             "correct binary will then be installed.")
  77.     (default #cpu)
  78.     )
  79. )
  80.  
  81.  
  82. ;********************************************************************
  83. ; Check for old version
  84. ;********************************************************************
  85. (if (> (exists (cat InstallDir "ACUSeeMe")) 0)
  86.    (rename (cat InstallDir "ACUSeeMe") (cat InstallDir "ACUSeeMe_old")) 
  87. )
  88.  
  89. (if (> (exists (cat InstallDir "ACUSeeMe.info")) 0)
  90.    (rename (cat InstallDir "ACUSeeMe.info") (cat InstallDir "ACUSeeMe_old.info")) 
  91. )
  92.  
  93.  
  94. ;********************************************************************
  95. ; Copy Correct file 
  96. ;********************************************************************
  97. (if (< #cpu 2) (copyfiles (source "ACUSeeMe_000") (dest InstallDir) (newname "ACUSeeMe") (infos)))
  98. (if (> #cpu 1) (copyfiles (source "ACUSeeMe_020") (dest InstallDir) (newname "ACUSeeMe") (infos)))
  99.  
  100.  
  101. ;********************************************************************
  102. ; Copy reflectors.txt if user wants it
  103. ;********************************************************************
  104. (set #wants-reflectors
  105.   (askbool
  106.       (prompt "ACUSeeMe can read reflector aliases (i.e. a reflector name "
  107.                         "and IP address pair) from the \"Reflectors.txt\" file and "
  108.                         "present the user with a list of reflectors in the connect "
  109.                         "window. The supplied \"Reflectors.txt\" file is a somewhat "
  110.                         "up to date file of such aliases. Would you like to install "
  111.             "the \"Reflectors.txt\" file? ")
  112.         (help "")
  113.         (default 0)
  114.     )
  115. )
  116.  
  117. (if #wants-reflectors (copyfiles (source "Reflectors.txt") (dest InstallDir) (infos)))
  118.